home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1085.arc / LISTING1.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-27  |  3KB  |  46 lines
  1. {.HE LISTING 1.  Source Listing of Turbo Graphics Shell Procedures}
  2. program shell_listings;
  3.     {#################################################################
  4.      #   Copyright 1984 by Hubert D. Callihan.  All rights reserved. #
  5.      #   Permission granted to private parties to copy for their     #
  6.      #   personal, non-commercial benefit.                           #
  7.      #                                                               #
  8.      #            Hubert D. Callihan, Ph.D.                          #
  9.      #            Computer Science Department                        #
  10.      #            University of Pittsburgh at Johnstown              #
  11.      #            Johnstown, PA 15904                                #
  12.      ################################################################}
  13.  
  14. { put your CONST TYPE VAR sections here }
  15.  
  16. { Select the modules you wish to include.  Each one you select adds to
  17.    your total compile time, so include only the ones you need.  GSXWORK.INC
  18.    must be included in any case where you wish to use GSX graphics from
  19.    TURBO.  See the DEC GSX Programmer's Reference Manual, Table 1, or the
  20.    source code documentation headings (Listing 1) to determine what each
  21.    function does. }
  22.  
  23. {    _______ "I" here will produce listing of each file when TLIST is used  }
  24. {   /        to list the source code.  "i" will not list the included files }
  25. {  /         but only your procedures etc.  (TLIST is Turbo-supplied)       }
  26. { |                                                                         }
  27. { V                                                                         }
  28. {$IB:GSXWORK.INC}            { REQUIRED GLOBALS AND WORK STATION FUNCTIONS }
  29. {$IB:GSXLINE.INC}            { LINE DRAWING FUNCTIONS }
  30. {$IB:GSXTEXT.INC}            { TEXT DRAWING FUNCTIONS }
  31. {$IB:GSXCOLOR.INC}           { COLOR FUNCTIONS }
  32. {$IB:GSXFILL.INC}            { FILLED AREA FUNCTIONS }
  33. {$IB:GSXMARK.INC}            { POINT MARKING FUNCTIONS }
  34. {$IB:GSXGDP.INC}             { GENERALIZED DRAWING PRIMITIVE FUNCTIONS }
  35. {$IB:GSXINPUT.INC}           { INPUT FUNCTIONS }
  36. {$IB:GSXWMODE.INC}           { MODE CONTROL FUNCTIONS }
  37. {$IB:GSXINQUI.INC}           { STATUS INQUIRY FUNCTIONS }
  38. {$IB:GSXESCAP.INC}           { ESCAPE FUNCTIONS }
  39.  
  40. { put your PROCEDURES and  FUNCTIONS here }
  41.  
  42. BEGIN  { ***************** main begins here ********************* }
  43.  
  44. END.   { ***************** MAIN ENDS HERE   ********************* }
  45. {}
  46.